ggplot(data=student2012.sub.summary.gap) +
geom_hline(yintercept=0, colour="grey80") +
geom_point(aes(x=name, y=wmathgap, color=wmathgap_cat), size=3) +
geom_segment(aes(x=name, xend=name, y=ml, yend=mu,
color=wmathgap_cat)) + xlab("") +
scale_colour_manual("", values=c("boys"="skyblue",
"girls"="pink", "same"="lightgreen")) +
scale_y_continuous("Girls <----------> Boys",
breaks=seq(-30, 30, 10), limits=c(-35, 35),
labels=c(seq(30, 0, -10), seq(10, 30, 10))) +
coord_flip() + theme_bw() +
theme(axis.text.x = element_text(size=5),
axis.text.y = element_text(size=5),
axis.title = element_text(size=7),
legend.text = element_text(size=5),
legend.title = element_text(size=5))